home *** CD-ROM | disk | FTP | other *** search
/ Avalon 6 / Avalon_06_1995_Avalon_Side_A.d64 / main menu (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  59 lines
  1. 1 poke808,225
  2. 2 printchr$(8)
  3. 4 sys65418:k=peek(45)+peek(46)*256:a=k-1086:p=k-1019:sysa:t$(0)=",8":t$(1)=",8,1"
  4. 5 ln$="[192][192][192][192][192][192][192][192][192][192]":ln$=""+ln$+ln$+ln$+ln$:sp$="                   ":sp$=sp$+sp$
  5. 6 poke53280,0:poke53281,0:y=1:r$(0)="":r$(1)="[146]":x(0)=2:x(1)=22
  6. 7 print""
  7. 8 readn:n=n-1:dims(n),f$(n),t(n),e$(n),c$(n)
  8. 10 fori=0ton:reads(i),f$(i),t(i),e$(i),c$(i):next
  9. 12 print"[147]";chr$(9)chr$(142)chr$(8):y=0:sysp,14,0
  10. 14 sysp,14,1
  11. 16 sysp,14,2:mx=15:ifmx>(n-g)thenmx=n-g
  12. 18 sysp,7,4:r=1:print"[156]    avalon vi 1995 "
  13. 19 print""
  14. 22 fory=0tomx:gosub50:next:y=0:sysp,5,22:print"[158]use cursor key to move cursor"
  15. 24 sysp,15,18
  16. 26 sysp,0,21:println$
  17. 28 i=23:ifn>mxtheni=24:sysp,4,23:print"[154]press the [n] key for next page"
  18. 30 sysp,6,i:print"press [return] to load file ":poke198,0
  19. 32 r=(r+1)*-(r<1):gosub50:t=0
  20. 34 geta$:t=t+1:ifa$=""andt<20then34
  21. 36 ifa$=""thenr=1:gosub50:y=y+1:gosub56:goto32
  22. 38 ifa$=""andy+8<mx+1thenr=1:gosub50:y=y+8:gosub56:goto32
  23. 40 ifa$="[145]"thenr=1:gosub50:y=y-1:gosub56:goto32
  24. 42 ifa$="[157]"andy-8=>0thenr=1:gosub50:y=y-8:gosub56:goto32
  25. 44 ifa$="n"theng=(g+16)*-(g<=n-16):goto12
  26. 46 ifa$=chr$(13)then62
  27. 48 goto32
  28. 50 rl=y-(8*-(y=>8)):sysp,x(-(y=>8)),rl+9:printr$(r);left$(f$(y+g),16)
  29. 52 sysp,1,20:a$=left$(c$(y+g),38):a=len(a$):b$=left$(sp$,19-a/2)
  30. 54 print"[146]";b$;a$;b$:return
  31. 56 ify>mxtheny=0
  32. 58 ify<0theny=mx
  33. 60 return
  34. 62 ifs(y+g)thensys52256
  35. 64 print"[147]load";chr$(34);f$(y+g);chr$(34);t$(t(y+g)):print"";e$(y+g);chr$(9);""
  36. 66 poke631,13:poke632,13:poke198,2:end
  37. 68 :
  38. 70 :
  39. 98 rem 0=no warp/drive   0= ",8"
  40. 100 data 17:rem number filenames
  41. 103 data 0,"questions*", 1,"run","would you like to visit castle avalon?"
  42. 104 data 0,"paper talk*", 1,"run","are we all wasting our time? "
  43. 105 data 0,"chips with all*", 1,"run","get your techi-head on!"
  44. 106 data 0,"sector 8*", 1,"run","yeah! let's have a blast for a bit"
  45. 107 data 0,"monopoly*", 1,"run","make a million with this one"
  46. 108 data 0,"putt putt golf*", 1,"run","hole in one! sounds like my socks!"
  47. 109 data 0,"octanoter*", 1,"run","the noter we want you to use"
  48. 110 data 0,"fair thee well*", 1,"run","they come and they go"
  49. 112 data 0,"interview/xl*", 1,"run","xl reveals all!"
  50. 114 data 0,"zine '64*", 1,"run","another paper zine 4u!"
  51. 115 data 0,"computer scene*", 1,"run","try this mega zine!"
  52. 120 data 0,"forecaster vii*", 1,"run","wanna be a weather man? now you can"
  53. 130 data 0,"        ", 1,"run","                                       "
  54. 140 data 0,"re-set*", 1,"run","finished for now? load me then"
  55. 150 data 0,"        ", 1,"run","                                      "
  56. 160 data 0,"        ", 1,"run","                                       "
  57. 170 data 0,"sorry no more!", 1,"run"," -> avalon, more than just a legend <-"
  58. 299 :
  59.